home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / MacPerl / MPAEUtils.h < prev    next >
Text File  |  1993-09-17  |  2KB  |  56 lines
  1. /*********************************************************************
  2. Project    :    MacPerl            -    Real Perl Application
  3. File        :    MPAEUtils.h        -
  4. Author    :    Matthias Neeracher
  5.  
  6. A lot of this code is borrowed from 7Edit written by
  7. Apple Developer Support UK
  8.  
  9. Started    :    17Mar93                                Language    :    MPW C
  10. Modified    :    17Mar93    MN
  11.                 29May93    MN    Compiles correctly
  12. Last        :    29May93
  13. *********************************************************************/
  14.  
  15.  
  16. #include <Types.h>
  17. #include <QuickDraw.h>
  18. #include <Packages.h>
  19. #include <GestaltEqu.h>
  20. #include <Editions.h>
  21. #include <Printing.h>
  22. #include <AppleEvents.h>
  23. #include <ToolUtils.h>
  24.  
  25. #ifndef __MPAEUTILS__
  26. #define __MPAEUTILS__
  27.  
  28. /**-----------------------------------------------------------------------
  29.     Utility Routines for getting data from AEDesc's
  30.   -----------------------------------------------------------------------**/
  31.  
  32. pascal void GetRawDataFromDescriptor(    const AEDesc *theDesc,
  33.                                                     Ptr     destPtr,
  34.                                                     Size    destMaxSize,
  35.                                                     Size    *actSize);
  36.  
  37. pascal OSErr GetPStringFromDescriptor(    const AEDesc *sourceDesc, char *resultStr);
  38.  
  39. pascal OSErr GetIntegerFromDescriptor(    const AEDesc *sourceDesc, short *result);
  40.  
  41. pascal OSErr GetBooleanFromDescriptor(    const AEDesc *sourceDesc,
  42.                                                     Boolean *result);
  43.  
  44. pascal OSErr GetLongIntFromDescriptor(    const AEDesc *sourceDesc,
  45.                                           long   *result);
  46.  
  47. pascal OSErr GetRectFromDescriptor(        const AEDesc *sourceDesc, Rect *result);
  48.  
  49. pascal OSErr GetPointFromDescriptor(    const AEDesc *sourceDesc,
  50.                                                     Point  *result);
  51.  
  52. pascal OSErr GetTextFromDescIntoTEHandle(
  53.                                                     const AEDesc *sourceTextDesc,
  54.                                                     TEHandle theHTE);
  55.  
  56. #endif